home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / crazy fl_tox.s < prev    next >
Text File  |  1995-03-17  |  880b  |  54 lines
  1. run:
  2. s:
  3. move.b #$80,lab1+3
  4. lea tabel,a0
  5. lea tabel,a6
  6. s1:
  7. andi.b #64,$bfe001
  8. beq s5
  9. lab1:
  10. cmp.b #$80,$dff006
  11. bne s1 
  12. s2:
  13. move.w farve,$dff180
  14. add.b #1,lab1+3
  15. move.w (a0)+,farve
  16. add.w #$0101,(a6)+
  17. cmp.l #endtab,a0
  18. bne s1
  19. move.w #0,$dff180
  20. cmpi.b #1,tjek
  21. beq op
  22. add.b #1,s+3
  23. cmpi.b #$e0,s+3
  24. bne run
  25. move.b #1,tjek
  26. bra run
  27. op :
  28. sub.b #1,s+3
  29. cmpi.b #$38,s+3
  30. bne run
  31. move.b #0,tjek
  32. bra run
  33. even
  34. tabel:
  35. dc.w $111,$222,$333,$444,$555,$666,$555,$444,$333,$222,$111
  36. dc.w $010,$020,$030,$040,$050,$060,$070,$080,$060,$050,$040
  37. dc.w $030,$020,$010,$000
  38. dc.w $110,$220,$330,$440,$550,$660,$770,$880,$990,$aa0,$bb0
  39. dc.w $aa0,$990,$880,$770,$660,$550,$440,$330,$220,$110,$000
  40. dc.w $010,$020,$030,$040,$050,$060,$070,$080,$070,$060,$050
  41. dc.w $040,$030,$020,$010,$000
  42. dc.w $111,$222,$333,$444,$555,$666,$555,$444,$333,$222,$111,$000
  43.  
  44. endtab:
  45. even
  46. farve:
  47. dc.w $0
  48. even 
  49. tjek:
  50. dc.b $00
  51. even
  52. s5:
  53. rts
  54.